Plotly example

g1<-ggplot(Wage,aes(x=age,y=wage,color=race,fill=race))+
  geom_point()+
  geom_smooth(method = "lm",se=FALSE)+
  facet_wrap(~education)+
  theme_classic()
ggplotly(g1)
## `geom_smooth()` using formula 'y ~ x'